home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
versa11.arc
/
VERSA.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-05-23
|
13KB
|
795 lines
;PC Pursuit: VERSAdial, Version 1.1, by Allen Brunson, David Rhoten, and Gizmo
;Copyright (C) 1987, Allen Brunson
RE_ENTRY:
SWIT S9
CASE"_NULL"
GOTO BEGIN
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
CASE"G"
FIND S0"3"
IF FOUN
GOSU DISC3
ENDI
GOTO CITYCHOI
ENDC
CASE"ACTIVE"
GOTO GOLEVEL
ENDC
DEFA
CLEA
LOCA 11,20
MESS"Parameter error from menu command file."
LOCA 14,0
GOTO VERSAOFF
ENDC
ENDS
BEGIN:
SET CR_I CR
SET CR_O CR
SET PARI EVEN
SET DATA 7
SET DUPL FULL
SET BAUD 1200 ;Baud rate of YOUR modem
ASSI S6"ON" ;Extended menus (ON or OFF)
MLOA"VERSA.KEY"
GOTO TITLE
CITYREDI:
CLEA
TRAN"C DIAL"
TRAN S1
MACR 8
MACR 9
WAIT"="
MACR 0
RGET S8
RGET S8
RGET S8
FIND S8"CONNECTED"
IF FOUN
MESS"^G"
GOTO PORTSET
ENDI
GOTO CITYREDI
BBSREDIA:
CLEA
LABEL1:
TRAN"A/!"
RGET S8 80 40
RGET S8
FIND S8"CONNECT"
IF FOUN
GOTO BBSCONNE
ENDI
GOTO LABEL1
BBSCONNE:
SET PARI NONE
SET DATA 8
ALAR 2
SWIT S7
CASE"_NULL"
MLOA"PROCOMM.KEY"
EXIT
ENDC
DEFA
EXEC S7
ENDC
ENDS
PCPOFF:
CLEA
IF NOT CONN
GOTO VERSAOFF
ENDI
SWIT S0
CASE"1"
GOTO VERSAOFF
ENDC
CASE"2"
GOTO DISC2
ENDC
CASE"3"
GOSU DISC3
GOTO DISC2
ENDC
ENDS
DISC3:
CLEA
MESS"Disconnecting from remote city . . ."
BREA 10
WAIT"@"5
TRAN"!"
IF NOT WAIT
TRAN"!@!"
ENDI
WAIT"@"5
TRAN"D!"
WAIT"@"5
MESS"^M^J^M^J"
PAUS 1
ASSI S0"2"
RETU
DISC2:
MESS"Disconnecting from local Telenet . . .^M^J"
TRAN"HANGUP!"
PAUS 1
MESS"^M^J"
VERSAOFF:
MLOA"PROCOMM.KEY"
MESS"VERSA finished."
EXIT
NETREDIA:
CLEA
TRAN"C PURSUIT,"
MACR 9
WAIT"="
MACR 0
RGET S8
RGET S8
RGET S8
FIND S8"CONNECTED"
IF FOUN
GOTO BBSCONNE
ENDI
GOTO NETREDIA
NETDIAL:
TRAN"C PURSUIT,"
MACR 9
WAIT"="
MACR 0
RGET S8
RGET S8
RGET S8
FIND S8"CONNECTED"
IF FOUN
GOTO BBSCONNE
ENDI
CLEA
LOCA 11,16
MESS"The Net Exchange is busy. Begin redial <Y/N>?"
LABEL2:
LOCA 11,63
GET S9 1
SWIT S9
CASE"Y"
GOTO NETREDIA
ENDC
CASE"N"
GOTO CITYCHOI
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
DEFA
MESS"^G"
LOCA 11,63
MESS" "
GOTO LABEL2
ENDC
ENDS
TITLE:
CLEA
LOCA 2,0
MESS" ╔═══════════════════════════════╗"
MESS" ║ ║"
MESS" ║ PC Pursuit: VERSAdial ║"
MESS" ║ Written by Allen Brunson, ║"
MESS" ║ David Rhoten, and Gizmo ║"
MESS" ║ ║"
MESS" ║ `"D`" - Disconnect ║"
MESS" ║ `"E`" - Exit VERSA ║"
MESS" ║ ║"
MESS" ╚═══════════════════════════════╝"
LOCA 14,0
MESS"Determining PC Pursuit level . . .^M^J"
IF NOT CONN
MESS"Modem is currently offline."
ASSI S0"1"
PAUS 1
GOTO CITYCHOI
ENDI
TRAN"ATZ!"
RGET S8 80 3
RGET S8 80 3
RGET S9 80 3
FIND S8"?"
IF FOUN
MESS"^M^JLocal Telenet level determined."
ASSI S0"2"
PAUS 1
GOTO CITYCHOI
ENDI
FIND S9"OK"
IF FOUN
MESS"^M^JRemote city level determined."
ASSI S0"3"
PAUS 1
GOTO MENUCHEC
ENDI
FIND S9"MANUAL ANSWER"
IF FOUN
TRAN"!"
PAUS 1
TRAN"!"
WAIT"*"10
TRAN"I!"
WAIT"IDLE"
TRAN"ATZ!"
WAIT"OK"
MESS"^M^JRemote city level determined."
ASSI S0"3"
PAUS 1
GOTO MENUCHEC
ENDI
MESS"^M^JUnable to determine level.^M^J"
GOTO VERSAOFF
CITYCHOI:
FIND S6"OFF"
IF NOT FOUN
GOTO CITYMENU
ENDI
CLEA
LOCA 10,26
MESS"Enter desired area code:"
LOCA 12,29
MESS"Options: 1-26, M"
LOCA 10,51
GET S9 3
LABEL3:
SWIT S9
CASE"1"
ASSI S1"404"
ENDC
CASE"2"
ASSI S1"617"
ENDC
CASE"3"
ASSI S1"216"
ENDC
CASE"4"
ASSI S1"313"
ENDC
CASE"5"
ASSI S1"305"
ENDC
CASE"6" ;Net Exchange handling
ASSI S1"NET"
;ASSI S7"COMMAND.VER"
GOTO GOLEVEL
ENDC
CASE"7"
ASSI S1"201"
ENDC
CASE"8"
ASSI S1"212"
ENDC
CASE"9"
ASSI S1"215"
ENDC
CASE"10"
ASSI S1"919"
ENDC
CASE"11"
ASSI S1"813"
ENDC
CASE"12"
ASSI S1"202"
ENDC
CASE"13"
ASSI S1"312"
ENDC
CASE"14"
ASSI S1"214"
ENDC
CASE"15"
ASSI S1"713"
ENDC
CASE"16"
ASSI S1"414"
ENDC
CASE"17"
ASSI S1"612"
ENDC
CASE"18"
ASSI S1"303"
ENDC
CASE"19"
ASSI S1"602"
ENDC
CASE"20"
ASSI S1"801"
ENDC
CASE"21"
ASSI S1"818"
ENDC
CASE"22"
ASSI S1"213"
ENDC
CASE"23"
ASSI S1"503"
ENDC
CASE"24"
ASSI S1"415"
ENDC
CASE"25"
ASSI S1"408"
ENDC
CASE"26"
ASSI S1"206"
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
CASE"M"
GOTO CITYMENU
ENDC
DEFA
ASSI S1 S9
ENDC
ENDS
MENUCHEC:
FIND S6"OFF"
IF FOUN
GOTO BBSCHOIC
ENDI
SWIT S1
CASE"404"
EXEC"VERSA1.MNU"
ENDC
CASE"617"
EXEC"VERSA1.MNU"
ENDC
CASE"216"
EXEC"VERSA1.MNU"
ENDC
CASE"313"
EXEC"VERSA1.MNU"
ENDC
CASE"305"
EXEC"VERSA1.MNU"
ENDC
CASE"201"
EXEC"VERSA1.MNU"
ENDC
CASE"212"
EXEC"VERSA2.MNU"
ENDC
CASE"215"
EXEC"VERSA2.MNU"
ENDC
CASE"919"
EXEC"VERSA2.MNU"
ENDC
CASE"813"
EXEC"VERSA2.MNU"
ENDC
CASE"202"
EXEC"VERSA2.MNU"
ENDC
CASE"312"
EXEC"VERSA2.MNU"
ENDC
CASE"214"
EXEC"VERSA3.MNU"
ENDC
CASE"713"
EXEC"VERSA3.MNU"
ENDC
CASE"414"
EXEC"VERSA3.MNU"
ENDC
CASE"612"
EXEC"VERSA3.MNU"
ENDC
CASE"303"
EXEC"VERSA3.MNU"
ENDC
CASE"602"
EXEC"VERSA3.MNU"
ENDC
CASE"801"
EXEC"VERSA4.MNU"
ENDC
CASE"818"
EXEC"VERSA4.MNU"
ENDC
CASE"213"
EXEC"VERSA4.MNU"
ENDC
CASE"503"
EXEC"VERSA4.MNU"
ENDC
CASE"415"
EXEC"VERSA4.MNU"
ENDC
CASE"408"
EXEC"VERSA4.MNU"
ENDC
CASE"206"
EXEC"VERSA4.MNU"
ENDC
CASE"_NULL"
CLEA
LOCA 11,18
MESS"Enter area code, or <Return> if unknown:"
LOCA 11,59
GET S9 3
SWIT S9
CASE"_NULL"
GOTO BBSMENU
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
DEFA
ASSI S1 S9
GOTO MENUCHEC
ENDC
ENDS
ENDC
ENDS
BBSCHOIC:
FIND S6"OFF"
IF NOT FOUN
GOTO BBSMENU
ENDI
CLEA
LOCA 10,23
MESS"Enter phone number of BBS:"
LOCA 12,26
MESS"Options: 1-20, G, M"
LOCA 10,50
GET S9 7
LABEL4:
SWIT S9
CASE"1" ;Beginning of All Cities BBS Directory
ASSI S2"4330062"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"2373750"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"9942944"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"3496576"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9645160"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"7814723"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"17184571752"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"5243984"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"8482106"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"4311194"
;ASSI S7"COMMAND.VER"
ENDC
CASE"11"
ASSI S2"6893561"
;ASSI S7"COMMAND.VER"
ENDC
CASE"12"
ASSI S2"6960360"
;ASSI S7"COMMAND.VER"
ENDC
CASE"13"
ASSI S2"3813320"
;ASSI S7"COMMAND.VER"
ENDC
CASE"14"
ASSI S2"5767285"
;ASSI S7"COMMAND.VER"
ENDC
CASE"15"
ASSI S2"9363058"
;ASSI S7"COMMAND.VER"
ENDC
CASE"16"
ASSI S2"8824227"
;ASSI S7"COMMAND.VER"
ENDC
CASE"17"
ASSI S2"7295377"
;ASSI S7"COMMAND.VER"
ENDC
CASE"18"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"19"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"20"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
CASE"G"
FIND S0"3"
IF FOUN
GOSU DISC3
ENDI
GOTO CITYCHOI
ENDC
CASE"M"
GOTO BBSMENU
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
GOLEVEL:
SWIT S0
CASE"1"
GOTO LEVEL1
ENDC
CASE"2"
CLEA
GOTO LEVEL2
ENDC
CASE"3"
CLEA
GOTO LEVEL3
ENDC
ENDS
LEVEL1:
CLEA
TRAN"AT S2=42 DT "
MACR 7
WAIT"CONNECT"20
IF NOT WAIT
HANG
CLEA
LOCA 11,19
MESS"Local Telenet did not connect. Redialing."
LOCA 0,0
PAUS 1
GOTO LEVEL1
ENDI
PAUS 2
TRAN"^M^M"
WAIT"="
TRAN"D1!"
WAIT"@"
LEVEL2:
IF NOT CONN
CLEA
LOCA 11,7
MESS"Telenet has disconnected. Dialing will begin at the local level."
LOCA 0,0
PAUS 1
ASSI S0"1"
GOTO GOLEVEL
ENDI
ASSI S0"2"
FIND S1"NET"
IF FOUN
GOTO NETDIAL
ENDI
TRAN"C DIAL"
TRAN S1
MACR 8
MACR 9
WAIT"="
MACR 0
RGET S8
RGET S8
RGET S8
FIND S8"CONNECTED"
IF FOUN
MESS"^G"
GOTO PORTSET
ENDI
CLEA
LOCA 11,11
MESS"No modems available in remote city. Begin redial <Y/N>?"
LABEL5:
LOCA 11,68
GET S9 1
SWIT S9
CASE"Y"
GOTO CITYREDI
ENDC
CASE"N"
GOTO CITYCHOI
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
DEFA
MESS"^G"
LOCA 11,68
MESS" "
GOTO LABEL5
ENDC
ENDS
PORTSET:
TRAN"!@!"
WAIT"@"
TRAN"SET? 1:0,4:2,7:8!"
WAIT"@"3
TRAN"CONT!"
LEVEL3:
IF NOT CONN
CLEA
SWIT S1
CASE"_NULL"
LOCA 11,16
MESS"Telenet has disconnected. Area code is unknown."
LOCA 0,0
PAUS 1
ASSI S0"1"
GOTO CITYCHOI
ENDC
DEFA
LOCA 11,7
MESS"Telenet has disconnected. Dialing will begin at the local level."
LOCA 0,0
PAUS 1
ASSI S0"1"
GOTO LEVEL1
ENDC
ENDS
ENDI
ASSI S0"3"
TRAN"ATZ!"
RGET S8 80 3
RGET S8 80 3
RGET S8 80 3
FIND S8"OK"
IF NOT FOUN
PAUS 1
TRAN"!"
PAUS 1
TRAN"!"
WAIT"*"5
TRAN"I!"
WAIT"IDLE"5
TRAN"ATZ!"
WAIT"OK"
ENDI
TRAN"ATDT "
TRAN S2
TRAN"!"
RGET S8
RGET S8 80 50
RGET S8
FIND S8"CONNECT"
IF FOUN
GOTO BBSCONNE
ENDI
CLEA
LOCA 11,20
MESS"The BBS is busy. Begin redial <Y/N>?"
LABEL6:
LOCA 11,58
GET S9 1
SWIT S9
CASE"Y"
GOTO BBSREDIA
ENDC
CASE"N"
GOTO MENUCHEC
ENDC
CASE"D"
GOTO PCPOFF
ENDC
CASE"E"
CLEA
GOTO VERSAOFF
ENDC
DEFA
MESS"^G"
LOCA 11,58
MESS" "
GOTO LABEL6
ENDC
ENDS
CITYMENU:
CLEA
MESS" ╒════════════════════╡ PC Pursuit City Menu ╞════════════════════╕"
MESS" │ │"
MESS" │ E < 1> Atlanta (404) C <14> Dallas (214) │"
MESS" │ E < 2> Boston (617) C <15> Houston (713) │"
MESS" │ E < 3> Cleveland (216) C <16> Milwaukee (414) │"
MESS" │ E < 4> Detroit (313) M <17> Minneapolis (612) │"
MESS" │ E < 5> Miami (305) M <18> Denver (303) │"
MESS" │ E < 6> Net Exchange (n/a) M <19> Phoenix (602) │"
MESS" │ E < 7> Newark (201) P <20> Salt Lake City (801) │"
MESS" │ E < 8> New York (212) P <21> Glendale (818) │"
MESS" │ E < 9> Philadelphia (215) P <22> Los Angeles (213) │"
MESS" │ E <10> Res. Tri. Park (919) P <23> Portland (503) │"
MESS" │ E <11> Tampa (813) P <24> San Francisco (415) │"
MESS" │ E <12> Washington D.C. (202) P <25> San Jose (408) │"
MESS" │ C <13> Chicago (312) P <26> Seattle (206) │"
MESS" │ │"
MESS" │ E - Eastern Time C - Central Time │"
MESS" │ M - Mountain Time P - Pacific Time │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────────────────────┤"
MESS" │ Enter area code or number of desired city: │"
MESS" ╘════════════════════════════════════════════════════════════════╛"
LOCA 20,60
GET S9 3
GOTO LABEL3
BBSMENU:
CLEA
LOCA 2,0
MESS" ╒═══════════════════╡ All Cities BBS Directory ╞═══════════════════╕"
MESS" │ │"
MESS" │ < 1> Atlanta PC UG (404) <11> The Net Exchange (703) │"
MESS" │ < 2> Boston Comp. Soc. (617) <12> PC Magazine IRS (212) │"
MESS" │ < 3> Vernon Buerg's BBS (415) <13> PC Ohio (216) │"
MESS" │ < 4> Charisma (415) <14> PC Tech Journal BBS (202) │"
MESS" │ < 5> Exec PC (414) <15> Phoenix Techline (612) │"
MESS" │ < 6> Friends!! (212) <16> Plantz's Superboard (312) │"
MESS" │ < 7> Friends, Too!! (212) <17> Sparta (201) │"
MESS" │ < 8> Gannett Help Screen (202) <18> ( ) │"
MESS" │ < 9> Interconnect (202) <19> ( ) │"
MESS" │ <10> Invention Factory (212) <20> ( ) │"
MESS" │ │"
MESS" │ Selected area code: │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├───────────────────────────────────────────────────────────────────┤"
MESS" │ Enter selection 1-20 or other BBS phone number: │"
MESS" ╘═══════════════════════════════════════════════════════════════════╛"
LOCA 15,48
SWIT S1
CASE"_NULL"
MESS"???"
ENDC
DEFA
MESS S1
ENDC
ENDS
LOCA 19,60
GET S9 7
GOTO LABEL4